home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / edu / colaid / col_aid.2 / PSFONT.PS < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.9 KB  |  59 lines
  1. /FontType 3 def
  2. /FontMatrix [.001 0 0 .001 0 0] def
  3. /FontBBox [ 0 0 0 0 ] def
  4.  
  5. /Encoding 256 array def
  6. /c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0a/c0b/c0c/c0d/c0e/c0f
  7. /c10/c11/c12/c13/c14/c15/c16/c17/c18/c19/c1a/c1b/c1c/c1d/c1e/c1f
  8. /c20/c21/c22/c23/c24/c25/c26/c27/c28/c29/c2a/c2b/c2c/c2d/c2e/c2f
  9. /c30/c31/c32/c33/c34/c35/c36/c37/c38/c39/c3a/c3b/c3c/c3d/c3e/c3f
  10. /c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4a/c4b/c4c/c4d/c4e/c4f
  11. /c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5a/c5b/c5c/c5d/c5e/c5f
  12. /c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6a/c6b/c6c/c6d/c6e/c6f
  13. /c70/c71/c72/c73/c74/c75/c76/c77/c78/c79/c7a/c7b/c7c/c7d/c7e/c7f
  14. /c80/c81/c82/c83/c84/c85/c86/c87/c88/c89/c8a/c8b/c8c/c8d/c8e/c8f
  15. /c90/c91/c92/c93/c94/c95/c96/c97/c98/c99/c9a/c9b/c9c/c9d/c9e/c9f
  16. /ca0/ca1/ca2/ca3/ca4/ca5/ca6/ca7/ca8/ca9/caa/cab/cac/cad/cae/caf
  17. /cb0/cb1/cb2/cb3/cb4/cb5/cb6/cb7/cb8/cb9/cba/cbb/cbc/cbd/cbe/cbf
  18. /cc0/cc1/cc2/cc3/cc4/cc5/cc6/cc7/cc8/cc9/cca/ccb/ccc/ccd/cce/ccf
  19. /cd0/cd1/cd2/cd3/cd4/cd5/cd6/cd7/cd8/cd9/cda/cdb/cdc/cdd/cde/cdf
  20. /ce0/ce1/ce2/ce3/ce4/ce5/ce6/ce7/ce8/ce9/cea/ceb/cec/ced/cee/cef
  21. /cf0/cf1/cf2/cf3/cf4/cf5/cf6/cf7/cf8/cf9/cfa/cfb/cfc/cdd/cde/cff
  22. Encoding astore pop
  23.  
  24.  
  25. /dVec [ {rmoveto}           % 234
  26.         {rlineto}           % 235
  27.         {rcurveto}          % 236
  28.         {closepath}         % 237
  29.         {fill}              % 238
  30.         {100 mul}           % 239
  31.         {add}               % 240
  32.         {setcachedevice}    % 241
  33.         {setlinewidth}      % 242
  34.         {stroke}            % 243
  35.         {0 0 moveto}        % 244
  36.       ] def
  37.  
  38. /BuildChar
  39.     {
  40.       exch begin
  41.         Encoding exch get
  42.         dup CharProcs exch known
  43.         {
  44.             CharProcs exch get
  45.             { dup 200 le { 100 sub }
  46.                         { dup 233 le { 217 sub 100 mul add }
  47.                                     { 234 sub dVec exch get exec }
  48.                                 ifelse }
  49.                     ifelse
  50.             } forall
  51.         }
  52.         { pop 500 0 setcharwidth } ifelse
  53.       end
  54.     } def
  55.  
  56. /CharProcs 256 dict def
  57. CharProcs begin
  58.  
  59.